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RPGSAB_CVTPT_O Packed to Overpunch Translation Table 16-SEP-1984 02:11: AX/VMS Macro V04-00 Page 1. 
1-002 6-SEP-1984 MF Lois LRPGRIL. SRCIRPGCVTPTO.MAR: 1 1) 
000 1 - TITLE yb ty CVTPT_O Packed to Overpunch Translation Table 
000 ¢ -IDENT /1-0027 ; File: RPGCVTPTO.MAR | 
0 4; 
G09 5 FERRARA AERA EAE AE RAAT EEE | 
;* * | 
0000 ; 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0000 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * | 
4 10 :* ALL RIGHTS RESERVED. * 
> ® 
0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | 
4 \¢ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 13. ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8000 1 3* TRANSFERRED. * 
3* = 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
43 $9 3* CORPORATION. * 
3* % 
0000 3 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;3* * 
0000 5 ;* * 
5000 $8 PRR AAA AAA AAA AAA AAA AAA AAA AERA AAA TATA ARATE AAA AAA 
000 ; 
0000 28 ; FACILITY: RPG LIBRARY SUPPORT 
0000 $3 p++ 
0000 Q ; ABSTRACT: 
0000 oe This module contains the translation table for packed to overpunch 
0000 3 ;: conversion using the CVTPT instruction. | 
0000 ao 2 This module is the same as LIBSAB_CVTPT_O except that it produces 
0000 34 ; the alternate format of 0-9 for the positive value. 
44 3 ; Specifically the following entries were changed from LIBSAB_CVTPT_O: 
0000 37 ; all *X7B => “x30 
0000 38 ; all “X41 => “x31 
0000 39 ; all “X42 => “x3 
0000 40 ; all “x43 => “x3 
0000 41 ; all *X44 => “X34 
0000 4g 3 all “x45 => “x35 
0000 43 ; all “X46 => *x36 
8308 44 ; all “X47 => “x37 
00 45 ; all “X48 => “x38 
0000 46 ; all “X49 => *x39 
0000 47 ; 
0000 48 ; 
0000 49 j-- 
0000 50 ; 
0000 2) ; VERSION: 1 
4 ¢ : 
000 ; HISTORY: 
000 4; 
84 5 ; AUTHOR: es 
4 3 Leo Treggiari, 3-Mar-1985 
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12803 HISTORY ; Detailed Current Edit Aistory bn SEp=1 984 9:10:98 ERPGRTL. SRCURPGCVTPTO. MAR; 1 7 By 1 
-SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 1 of RPGCVTPTO 


2 3 
5 : 1-001 Original. LPT 4-Mar-1983 
8 ; 1-002 - Reference _RPGSCODE psect. DG 11-July-1983 
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RPGSAB_CVTPT_O Packed to Overpunch Translation Table 16-SEP-1984 211: AX/VMS Macro V04-00 Pa R 
800 t: e RPGSAB_CVIPT.O- mie) 7 9F bi 88 APGNTL. RETRPUCUTOTO.MAR: 1 - (ay | 1 
! 9 -SBTTL RPGSAB_CVTPT_O : 
} ¢ _~ ; 
! i i FUNCTIONAL DESCRIPTION: | : 
} . 3 This is the packed to overpunch translation table. ‘ 
b+ | 
8 1 $ -- 3 
0 1 : 3 
000 109 RPGSAB_CVTPT_O:: ; 
30 30 30 0 30 30 30 00 110 -BYTE “%X30,°X30,°X30,°X30,°X30, °X30, “X30, “X30 : 
0 30 7D 8 D 8 8 B90 111 -BYTE “*X Bear "X30,°X7D,°X Ls Set aaa : 
0 30 30 0 1 a -BYTE %*X30,*°X30,°X50,°X30,°X30,°X30,°X30,°X ; 
1 31 4A 31 4A 31 30 30 = 001 11 -BYTE %X30,°X30,°X31,°X4A,°X31,°X4A, °X31, °X : 
0 30 30 30 030 0020 114 -BYTE %*X30,°X30,°X30,°X30,°X ar Se 0,°x3 : 
2 48 38 030 00 5 115 -BYTE %X30,°X30,°X32,°X4B,°X32,°X4B, °X32,°X32 : 
0 30 3 0 8 0 116 -—BYTE %*X30,°X30,°X30,°X30,°X Rant "X30,°X3 : 
3 4 3 0 038 117 eBYTE “*X30,°X30,°X33,°X4C,°X33,°X4C, 2X35, °KS : 
0 30 30 30 30 30 30 30 0040 118 -BYTE %*x30,°X Beak 0,°xX30,°xX30,°X30,°X30,°X30 : 
4 34 4D 34 4D 34 30 30 0048 £119 -BYTE %X30,°X30,°X34,°X4D,°X34,°X4D,°X34, °XS : 
0 30 30 30 30 9 030 0050 120 «BYTE “*X30,°X30,°X30,°X30,°X30,°X30,°X30,°X3 : 
5 35 + 5 4E 030 0058 121 -BYTE %*X30,°X30,°X LS eet 0 MGE,°%X35, 7X35 : 
0 30 30 30 30 30 30 30 444 1 ¢ BYTE mt et 0,°X30,°xX30,*xX30,°xX30,°X30 ; 
6 36 GF 36 4F 36 30 30 006 1 «BYTE %X30,°X30,°X36,°X4F ,°X36, °X4F, 9X36, “X36 ‘ 
30 30 30 ! 30 30 30 30 B05 124 -BYTE %*X30,°X30,°X es Sanat eat + Setar Oat 3 
HA 7 4 3 7 30 30 0078 125 -BYTE “%X30,°X30,°X37,°X50,°X37,°X50,°X37,°X37 : 
0 30 30 30 30 30 30 30 0080 126 -BYTE %*X30,°X30,°X ers et et nae 30 : 
HA 8 4 8 51 38 30 30 0088 #£«127 -BYTE %*Xx30,°X30,°X anh ANE anSh ankd anky 3 
0 0 0 0 0 0 0 0 0090 1 8 BYTE ty Set ee 0,°x30,°X 0,°xX30,°x30,°x30 | Ps 
3 9 3 9 3 9 30 30 0098 163 -BYTE %X30,°X30,°X39,°X52,°X39,°X52,°X39, °X39 : 
0 30 0 30 30 30 30 QOAO 130 -BYTE %*X30,°X30,°X ts eet Ot 2 "X30,°X30 : 
30 30 30 30 30 30 30 30 OOA8 131 -BYTE *X30,°X30,°X30,°X30,°X30,°X30,°X30,°X30 : 
30 30 30 30 30 30 30 30 0080 13 -BYTE %*X30,*X30,°X30,°X30,°X30,°X50,°X30,°X30 : 
Hi 0 30 30 30 30 30 30 008 1 -BYTE “*X30,°X30,°X30,°X Beak Bo an eh ane ante ; 
0 30 30 30 30 30 30 30 00C 134 -BYTE “*X30,°X Set Oe 2 "X30,°X30,°X30,°X30 : 
0 30 30 30 30 30 30 30 00C 135 BYTE %*x30,*xX30,°X30,°X30,°xX30,°X30,°X30,°X30 : 
0 30 30 30 30 30 30 30 00D0 136 BYTE te Ot et ts Ot att 4 : 
0 30 30 30 30 30 30 30 00D8 137 BYTE mt at eat 0,°xX30,°xX30,°X30,°xX30 : 
30 30 30 30 30 30 30 30 O0E0 138 BYTE ot at 0,°X30,°xX30,°xX30,°xX30,°X30 : 
30 30 30 30 30 30 30 30 OOE8 139 BYTE  “*X30,*xX30,*X30,°X30,°X30,°xX50,°xX30,°X30 ; 
30 Hi 0 30 30 30 30 30 ite 140 BYTE et ener et te 0,°X30,°X30,*°x30 : 
30 30 30 30 30 30 30 30 sth 1] BYTE  *%*x30,°X30,°xX30,°X30,°X30,°X30,°X30,°X30 : 
0100 14 - END | : 
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RPGSAB_CVTPT_O 00000000 RG 01 
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tower erecne wena ammo 


! ;_Psect synopsis ; 


Sm mm ew on anevent 


PSECT name Allocation PSECT No. Attributes 
ABS 00000000 <( 0.) 00¢ 0.) NOPIC USR CON ABS LCL 
RPGSCODE 00000100 (¢ 256.) 01 ¢ 1.) PIC USR CON REL LCL 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization "1 00:00:00.09 00:00:00.97 
Command processing 5 88:00:00 er 00:00:0 38 
Pass 9 00:00:00.6 88:80:08 °% 
pyasot table sort 0 00:00:00.01 88:88 :8 12 
s2 40 80:05:00. 9 8:8: 0.94 
Syabot table output 00:00:00.01 00:00:00.01 
Psect synopsis output 00:00:00.01 00:00:00.14 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 201 00:00:01.78 00:00:08.07 


The working set Limit was 750 pages. 

2711 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space at locates to hold 1 non-local and 0 local symbols. 
143 source Lines were read in Pass 1, produci "S 8 object records in Pass 2 

0 pages of virtual memory were used to define 0 macros. 


oo 


errr e ewe eee eer een en ewe eee en +} 


Macro Library name 


-$255$DUA28 : (SYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESS1ON/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:RPGCVTPTO/OBJ=OBJ$:RPGCVTPTO MSRC$:RPGCVTPTO/UPDATE=(ENHS:RPGCVTPTO) 


I 11 
Packed to Overpunch Translation Table i os Seb 9 9¢: 14:08 


reg wy NORD NOWRT NOVEC BYTE 


AX/VMS Macro Vv04-00 Page 6. 
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